supplied-by
: >order ( wid -- )  >r get-order r> swap 1+ set-order ;
